APP SayTime
	type $1000
ENDA

proc main:
	local lk%

	statuswin on
	font 8,16
	gborder $202

	at 8,5
	print "Press x to bye"
	at 2,7
	print "from Szenttornyai L szl¢"

	while 1
		lk%=get
		if lk%=%x
			break
		endif
		saytime:
	endwh

endp


proc saytime:
	saynum:(hour)
	play:("ora")
	saynum:(minute)
	play:("perc")
endp

proc saynum:(n%)
	local t$(2)
	local e$(1)
	local e%
	local t%

	t% = int(n% / 10)
	e% = n% - t%*10
	t$ = num$(t%,1)
	e$ = num$(e%,1)
	if e% = 0
		t$ = t$ + "0"
	elseif t% = 1 or t% = 2
		t$ = t$ + "1"
	else
		t$ = t$ + "0"
	endif

	if t% <> 0
		play:(t$)
	endif
	if e% <> 0
		play:(e$)
	endif
endp


PROC play:(nam$)
	local name$(128)
	name$="*"+nam$+chr$(0)
	call($1F86,UADD(ADDR(name$),1), 0,1)
ENDP